open Syntax
open Binding
open BlockPopulation
open Rules

type gene_window_setting = 
	| DisplayEvaluate | ShowOnlySubset of t_Expr list 
	| BuildInit of int | ShowGrowByOne 
	| ShowGrowByComp of int | Hide 
	| MaxSize of int | ConstraintFunction of constraint_function
	| Report of out_channel 

val gene_window : gene_pool ref -> gene_window_setting list -> unit

